Delphi: Convertir un FileTime vers un TDateTime

function filetimeToTDateTime(FTimeM:TFileTime):TDateTime;
var LTime:TFileTime;
    STime:TSystemTime;
    Modified:TDateTime;
begin

FileTimeToLocalFileTime(FTimeM, LTime);
if FileTimeToSystemTime(LTime, STime) then
begin
   Modified := EncodeDate(STime.wYear, STime.wMonth, STime.wDay);
   Modified := Modified + EncodeTime(STime.wHour, STime.wMinute, STime.wSecond,STime.wMilliSeconds);
end;

result:=modified;

end;

Retour vers l'index delphi